1 REM *** (C)1986 SCOTT CALAMAR
2 REM *** PUBLISHED BY SOFTDISK PUBLISHING, INC.
4 UPTIME=(8*4096)+4: DIM PR$(40)
5 PRINTCHR$(14)CHR$(8):POKE53280,11:POKE53281,15
6 PRINT"[147]"SPC(11)"[129][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
10 PRINTSPC(11)"[151] [211]HOPPING [204]ISTER [146][149]"
11 PRINTSPC(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
13 PRINTSPC(8)"(C)1986 BY [211]COTT [195]ALAMAR"
14 PRINT" [208]UBLISHED BY [211]OFTDISK [208]UBLISHING, [201]NC.":GOSUB20000
15 PRINTSPC(10)"[201]T'S SHOPPING TIME!":PRINTSPC(15)"[129](HO-HUM)":GOSUB20000
20 PRINT"[211]IMPLY BY PRESSING [129]Y[146] OR [129]N[146] AFTER EACH"
22 PRINT"ITEM ON THE SCREEN, YOU CAN QUICKLY"
25 PRINT"PRINT OUT YOUR SHOPPING LIST"
28 GOSUB20000
30 PRINTSPC(8)"[144][212]URN ON YOUR [195][194][205] PRINTER":PRINTSPC(18)"AND"
32 PRINTSPC(9)"[154][200]IT ANY KEY[146] WHEN READY"
34 GETK$:IFK$=""THEN34
36 IFK$=" "THEN40
40 CLOSE4:OPEN4,4
42 PRINT#4,CHR$(16)"24"CHR$(17)CHR$(14)"[211]HOPPING [204]IST"CHR$(15)CHR$(13)CHR$(13)
50 GOSUB600
100 READD$:IFD$="END"THEN400
105 PRINTSPC(18-INT(LEN(D$)/2))" "D$"? ":GOSUB610
150 GETA$:IFA$=""THEN 150
152 IFA$="Y"THEN200
153 IFA$="[133]"THEN400
154 IFA$="N"THEN50
155 IFA$<>"Y"ANDA$<>"N"ANDA$<>"[133]"THEN150
200 GOSUB600
205 READE$:IFE$="END"THEN370
210 PRINTSPC(18-INT(LEN(E$)/2))" "E$"? ":GOSUB610
230 GETB$:IFB$=""THEN230
235 IFB$="Y"THEN300
240 IFB$="N"THEN200
245 IFB$="[133]"THEN370
250 IFB$<>"Y"ANDB$<>"N"ANDB$<>"[133]"THEN230
300 GOSUB600
305 READF$:IFF$="END"THEN380
310 PRINTSPC(18-INT(LEN(F$)/2))" "F$"? ":GOSUB610
330 GETC$:IFC$=""THEN330
335 IFC$="Y"THEN350
340 IFC$="N"THEN300
345 IFC$="[133]"THEN380
348 IFC$<>"Y"ANDC$<>"N"ANDC$<>"[133]"THEN330
350 PRINTSPC(11)"[145][145] [217]OU'VE SELECTED: [146] ":PRINTSPC(15)"[144]1- "D$
351 PRINTSPC(15)"[144]2- "E$:PRINTSPC(15)"[144]3- "F$:PRINTSPC(12)"[195]ORRECT (Y OR N)"
352 GETM$:IFM$=""THEN352
353 IFM$="Y"THEN360
354 IFM$="N"THENPRINTSPC(11)"[145][149][215]HICH IS INCORRECT?"
355 GETN$:N=VAL(N$):IFN$=""THEN355
356 IFN<>1THENIFN<>2THENIFN<>3THEN352
357 IFN=1THEND1$=D$:GOSUB365:PRINT#4,CHR$(17)E$CHR$(16)"30"F$:GOTO50
358 IFN=2THEND1$=E$:GOSUB365:PRINT#4,CHR$(17)D$CHR$(16)"30"F$:GOTO50
359 IFN=3THEND1$=F$:GOSUB365:PRINT#4,CHR$(17)D$CHR$(16)"30"E$:GOTO50
360 PRINT#4,CHR$(17)D$CHR$(16)"30"E$CHR$(16)"60"F$:GOTO50
365 PRINTSPC(20-INT((LEN(D1$)+12)/2))""D1$"[144] WAS DELETED":RETURN
370 PRINT#4,CHR$(17)D$:GOTO400
380 PRINT#4,CHR$(17)D$CHR$(16)"30"E$:GOTO400
400 PRINT"[147][144][196]O YOU NEED ANYTHING NOT LISTED?":PRINTSPC(15)"< Y OR N >"
405 GETG$:IFG$=""THEN405
410 IFG$="N"THEN430
415 IFG$="Y"THENPRINTSPC(4)"     [212]YPE IN WHAT YOU NEED     "
416 PRINTSPC(4)"  <[195][210]> EXITS AFTER LAST ENTRY  "
420 GOSUB 2000: REM *** GET ITEMS ***
422 FOR X=1TOX1
424 PRINT#4,CHR$(17)PR$(X)
426 NEXT
430 PRINT"[147]"SPC(9)"  [215]OULD YOU  LIKE TO  "
432 PRINTSPC(9)"  LIST YOUR DINNERS?  "
433 PRINTSPC(15)"[144]< Y / N >"
434 GETM$:IFM$=""THEN434
435 IFM$="N"THEN462
436 IFM$="Y"THEN440
438 IFM$<>"Y"ANDM$<>"N"THEN460
440 PRINT#4,CHR$(17)CHR$(14)CHR$(13)"[196]INNERS:"CHR$(15)
441 PRINTSPC(14)" [200]OW MANY? "
442 GET N$: IF N$="" THEN 442
443 IF VAL(N$)=0 THEN462
444 FORL=1TOVAL(N$):PRINT"[147]"SPC(11)"[144] [212]YPE IN DINNER:[160]"
445 GOSUB 4000: REM *** GET DINNER ***
446 IF O$="" THEN L=VAL(N$): GOTO 461
447 PRINT#4,CHR$(17)L"- "O$:PRINTSPC(9)"[129] [211]PECIAL INGREDIENTS? "
448 PRINTSPC(16)"(Y[144][146] OR [129]N[144][146])"
449 GETQ$:IFQ$=""THEN449
450 IFQ$<>"Y"THEN461
451 PRINT"[147]"SPC(9)" [144] [211]PECIAL [201]NGREDIENTS  "
452 PRINT SPC(20-INT((LEN(O$)+17)/2))" [144] FOR A "O$" DINNER  [144]"
453 GOSUB 5000: REM *** GET INGREDIENTS ***
458 PRINTSPC(6)"[146][129] [205]ORE INGREDIENTS? < Y / N >"
459 GET T$: IF (T$<>"N") AND (T$<>"Y") THEN 459
460 IF T$="Y" THEN PRINT"": Z=17: GOSUB 2300: PRINT"[144]": GOTO 453
461 NEXTL
462 PRINT"[147]"SPC(11)"[144] [198]ORGET ANYTHING? "
463 PRINTSPC(10)"[208]RESSING [144]R[146] WILL TAKE"
464 PRINTSPC(10)"YOU BACK TO THE LIST"
466 PRINTSPC(11)"[144][193]NY OTHER KEY WILL"
467 PRINTSPC(11)" END THE PROGRAM [146]"
468 GETL$:IFL$=""THEN468
470 IFL$="R"THENRESTORE:GOTO50
475 IFL$=<>"F"THEN500
500 PRINTSPC(12)"[217]OUR LIST IS NOW"
502 PRINTSPC(14)"[156] COMPLETE. ":GOSUB20000
505 PRINTSPC(10)"[156][194]E SURE NOT TO SHOP"
507 PRINTSPC(10)"ON AN EMPTY STOMACH.":GOSUB20000
510 PRINTSPC(8)"[154] [200]AVE FUN AT THE MARKET [146]":GOSUB20000
550 PRINT#4,CHR$(12): PRINT#4: CLOSE4: POKE 186,8: SYS UPTIME
600 PRINT"[147][144][196]O YOU NEED:":RETURN
610 PRINTSPC(15)"[144]< Y / N >"
615 PRINTSPC(10)" [208]RESS [198]1  TO EXIT ":RETURN
997 :
998 REM *** GROCERY ITEMS ***
999 :
1000 DATAAPPLES,ORANGES,PEACHES,PLUMS,PEARS,MELON,PINEAPPLE,BANANAS,LEMON,LIME
1005 DATAGRAPES,GRAPEFRUIT,TANGERINES,RAISINS,AVOCADO,CHERRIES
1010 DATASTRAWBERRIES,BLUEBERRIES,CRANBERRIES,RASPBERRIES
1020 DATAFRESH BEANS,FRESH PEAS,CARROTS,CELERY,CUCUMBERS,LETTUCE,TOMATOES
1022 DATAMUSHROOMS, POTATOES,GREEN PEPPER,RED PEPPER,SPROUTS,FRESH CORN
1024 DATAONION,GARLIC,GINGER,SCALLION,PARSLEY,CANNED FRUIT
1026 DATACANNED STRING BEANS,CANNED WAX BEANS,CANNED PEAS,CANNED CARROTS
1027 DATACANNED BEETS,MIXED VEGETABLES,CANNED CORN,CANNED LIMA BEANS
1030 DATABAKED BEANS,CHILI BEANS, SAUERKRAUT,ASPARAGUS
1035 DATASTEWED TOMATOES,FROZEN PEAS, FROZEN BEANS,FROZEN CORN
1042 DATABREAD,BAGELS,PIE CRUST,ENGLISH MUFFINS,BREAD CRUMBS,DINNER ROLLS
1043 DATAHAMBURGER ROLLS,HOT DOG ROLLS
1045 DATACHOCOLATE BARS,CHOCOLATE SYRUP,NESTLE'S QUIK,CHOCOLATE CHIPS
1048 DATASUGAR,BROWN SUGAR,SUGAR SUBSTITUTE
1050 DATAFLOUR,BAKING POWDER,BAKING SODA,CAKE MIX,VANILLA,COOKIE MIX,FROSTING
1052 DATACAKE,PIE,COOKIES,CANDY,BREAKFAST CEREAL,HOT CEREAL
1055 DATAPANCAKES,SYRUP,WAFFLES,ICE CREAM,WHIPPED CREAM
1060 DATAKETCHUP,MAYONNAISE,MUSTARD,BBQ SAUCE,TARTAR SAUCE,SALAD DRESSING
1061 DATAPICKLES,RELISH
1065 DATAEGGS,BUTTER,MARGARINE,SHORTENING,VEGETABLE OIL,OLIVE OIL
1070 DATAMILK,SODA,ICED TEA,PUNCH,LEMONADE,APPLE JUICE,ORANGE JUICE,FRUIT JUICE
1075 DATATOMATO JUICE,LEMON JUICE,VEGETABLE JUICE,COCKTAIL MIX
1078 DATACOFFEE,CREAM,TEA,HOT COCOA,POPCORN,POTATO CHIPS,CORN CHIPS,DIP,CRACKERS
1080 DATAFRENCH FRIES,MASHED POTATO MIX,RICE,ONION RINGS,NOODLES,SPAGHETTI,LASAGNA
1085 DATAPEANUTS,WALNUTS,ALMONDS,PECANS,CASHEWS,COCONUT,CHESTNUTS
1090 DATACREAM CHEESE,SOUR CREAM,COTTAGE CHEESE,CHEDDAR CHEESE,VELVEETA
1095 DATAJACK CHEESE,MOZZERELLA CHEESE,RICOTTA CHEESE,PARMESAN CHEESE
1100 DATAAMERICAN CHEESE,SWISS CHEESE,CANNED TOMATOES
1105 DATATOMATO SAUCE,TOMATO PASTE,PIZZA SAUCE,PIZZA DOUGH,PIZZA TOPPING
1110 DATAPEANUT BUTTER,JELLY,JAM,MARSHMALLOWS,DESSERT TOPPING,PUDDING,JELLO
1115 DATAAPPLE SAUCE,CRANBERRY SAUCE,PIE FILLING
1120 DATABACON,HAM,SAUSAGE,PEPPERONI,HOT DOGS,KNOCKWURST
1121 DATASOUP,BEEF BOUILLON,CHICKEN BOUILLON,TUNA FISH,CANNED LUNCH MEAT
1122 DATASALAMI,BOLOGNA,CORNED BEEF,TURKEY ROLL,CHICKEN ROLL,PASTRAMI
1125 DATASTEAK,HAMBURGER,BEEF RIBS,RIB ROAST,POT ROAST,STEW MEAT,ORIENTAL BEEF
1130 DATAORIENTAL PORK,PORK CHOPS,PORK ROAST,PORK RIBS,PORK STEAK
1132 DATALAMB CHOPS,LAMB STEAK
1135 DATAFRYING CHICKEN,ROASTING CHICKEN, BAKING CHICKEN, CHICKEN BREASTS
1137 DATACHICKEN LEGS, CHICKEN THIGHS,ORIENTAL CHICKEN,CHICKEN LIVER
1140 DATATURKEY SLICES,TURKEY BREAST,TURKEY ROAST,STUFFING
1142 DATAVEAL,CLAMS,SHRIMP,SCALLOPS,FROZEN SEAFOOD,LOX,FISH STICKS
1143 DATALOBSTER,TROUT,SALMON,SWORDFISH,BASS,FISH FILETS,SQUID,BUTTERFISH
1145 DATATURKEY GRAVY, CHICKEN GRAVY,BEEF GRAVY,MUSHROOM GRAVY
1150 DATACORN TORTILLAS,FLOUR TORTILLAS,TACO SHELLS,CHILI POWDER,CHILES
1155 DATATACO SAUCE,ENCHILADA SAUCE,PICANTE SAUCE,REFRIED BEANS
1160 DATASOY SAUCE,BEAN SPROUTS,ORIENTAL VEGETABLES,OYSTER SAUCE,SESAME OIL
1165 DATAWATER CHESTNUTS,HOT MUSTARD,CHOW MEIN NOODLES,SNOW PEAS,BEAN SAUCE
1168 DATAALUMINUM FOIL,PLASTIC WRAP,PLASTIC BAGS,LGE. TRASH BAGS,SM. TRASH BAGS
1170 DATACHARCOAL,MATCHES,PAPER PLATES,PAPER CUPS,PLASTIC PLATES,ICE
1175 DATAPLASTIC FORKS,PLASTIC KNIVES,PLASTIC SPOONS, ANISE,ALLSPICE
1180 DATABASIL,BAY LEAVES,CLOVES,CURRY,NUTMEG,MACE,WHITE PEPPER,BLACK PEPPER
1185 DATASALT,GARLIC SALT,GARLIC POWDER,ONION SALT, ONION POWDER,SEASONING SALT
1190 DATACELERY SALT,CUMIN,DILL,MARJORAM,OREGANO,POULTRY SEASONING,PAPRIKA
1195 DATAPARSLEY FLAKES,HOT PEPPER,ITALIAN SEASONING,ROSEMARY,TARRAGON,THYME
1200 DATANUTMEG,CINNAMON,CHIVES,MUSTARD SPICE,WORCESTERSHIRE SAUCE,TABASCO SAUCE
1205 DATAHAND SOAP,BATH SOAP,LAUNDRY DETERGENT,BLEACH,WOOLITE,STEEL WOOL PADS
1215 DATANAPKINS,PAPER TOWEL,TISSUES,TOILET PAPER
1220 DATATOOTHPASTE,MOUTHWASH,SHAVING CREAM,RAZOR BLADES,RAZOR,SKIN CREAM
1222 DATAAFTERSHAVE LOTION,COLOGNE,PERFUME,BUBBLE BATH,COLD CREAM,DEODORANT
1225 DATADENTAL FLOSS,COTTON SWABS,COTTON BALLS,CONTACT LENS CLEANER,SALINE
1230 DATABANDAGES,GAUZE,ALCOHOL,VITAMINS,WITCH HAZEL,FIRST AID CREAM,MEDICINE
1235 DATASHAMPOO,HAIR CONDITIONER,HAIR RINSE,TAMPONS,STOCKINGS
1240 DATATOOTHBRUSH,EYEDROPS,POWDER,SUNTAN LOTION,AIR FRESHENER
1245 DATABUG SPRAY,BATHROOM CLEANER,WINDOW CLEANER,FURNITURE POLISH,FANTASTIK
1248 DATADRAIN CLEANER,CLEANSING POWDER,DISINFECTING CLEANSER
1250 DATAOVEN CLEANER,CARPET CLEANER,STAIN REMOVER,FLOOR CLEANER,WAX
1255 DATASPONGES,DISHWASH SPONGE,DISHWASH DETERGENT,MOP HEAD,MOP
1260 DATABEER,WINE,SHERRY,LIQUOR,VINEGAR,WINE VINEGAR,LIGHT BULBS,COFFEE FILTERS
1265 DATAVODKA,GIN,RUM,BOURBON
1270 DATABATTERIES,FILM,FLASHCUBES,CANDLES,TAPE,STRING
1275 DATAEND,END,END
1997 :
1998 REM *** GET ITEMS ***
1999 :
2000 CS$="[164][157]":X1=1:PRINT
2010 T$="":CT=0
2020 PRINTSPC(10)X1;"[157]. ";CS$;
2025 :
2030 GOSUB 3030: REM GET KBD INPUT ***
2197 :
2198 REM *** CARRIAGE RETURN ***
2199 :
2200 IF T$="" THEN PRINT" ": RETURN
2210 PR$(X1)=T$: X1=X1+1
2220 IF X1=40 THEN PRINT" ": RETURN
2225 PRINT" "
2227 IF INT(X1/10)<>(X1/10) THEN 2010
2230 PRINT"": Z=10: GOSUB 2300: GOTO 2010
2297 :
2298 REM *** CLEAR OUT ENTRY AREA ***
2299 :
2300 FOR X=1TOZ
2310 FOR X=1TOZ
2320 PRINT"                                     "
2330 NEXT
2335 PRINT""
2340 RETURN
3000 :
3010 REM *** KBD INPUT ***
3020 :
3030 GET K$: IF K$="" THEN 3030
3040 IF K$<>CHR$(20) THEN 3050
3042 IF CT=0 THEN 3030
3044 CT=CT-1: T$=LEFT$(T$,CT)
3046 PRINT" [157][157] [157]";CS$;
3048 GOTO 3030
3050 IF K$=CHR$(13) THEN 3120
3060 IF (K$=CHR$(32)) AND (CT<=12) THEN 3100
3070 IF (K$<"A") OR (K$>"Z") OR (CT>12) THEN 3030
3100 PRINTK$;:IF CT<12 THEN PRINTCS$;
3110 CT=CT+1: T$=T$+K$: GOTO 3030
3120 RETURN
3997 :
3998 REM *** GET DINNERS ***
3999 :
4000 CS$="[164][157]": T$="": CT=0: PRINTSPC(13)""L;"[157]- ";CS$;
4010 GOSUB 3030: REM *** GET KBD ***
4020 PRINT" ": O$=T$: RETURN
4997 :
4998 REM *** GET SPECIAL INGREDIENTS ***
4999 :
5000 CS$="[164][157]": X=0: PRINT
5001 T$="": CT=0: X=X+1
5002 IF X>10 THEN PRINT SPC(10)" [144] [197]NOUGH [193]LREADY!!  ": GOTO 5040
5005 PRINTSPC(12)X;"[157]- ";CS$;
5010 GOSUB 3030
5020 IF T$="" THEN PRINT" ": GOTO 5040
5025 :
5030 PRINT" ": R$(X)=T$: GOTO 5001
5040 X=X-1: FOR Y=1TOX
5050 PRINT#4,CHR$(16)"05 -- "CHR$(17)R$(Y)
5060 NEXT
5070 RETURN
20000 FORT=1TO2500:NEXT:RETURN